home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestDBase1 < prev    next >
Text File  |  2002-10-27  |  5KB  |  181 lines
  1. atalk    <- AmigaTalk new    " Show User what we are doing. "
  2. addrBook <- DataBase  new
  3.  
  4. record   <- DBRecordTemplate new: 7  " Seven DBFieldString fields "
  5.  
  6. name     <- DBFieldString new
  7. surname  <- DBFieldString new
  8. address  <- DBFieldString new
  9. city     <- DBFieldString new
  10. state    <- DBFieldString new
  11. zipcode  <- DBFieldString new
  12. phone    <- DBFieldString new
  13.  
  14. nameField    <- name    create: 'First_Name' length: 32
  15. surnameField <- surname create: 'Last_Name'  length: 32
  16. addressField <- address create: 'Address'    length: 32
  17. cityField    <- city    create: 'City/Town'  length: 32
  18. stateField   <- state   create: 'State'      length: 20
  19. zipcodeField <- zipcode create: 'ZipCode'    length: 11
  20. phoneField   <- phone   create: 'Phone #'    length: 14
  21.  
  22. record addField: nameField    at: 1  " Setup the DBRecordTemplate "
  23. record addField: surnameField at: 2
  24. record addField: addressField at: 3
  25. record addField: cityField    at: 4
  26. record addField: stateField   at: 5
  27. record addField: zipcodeField at: 6
  28. record addField: phoneField   at: 7
  29.  
  30. recordData <- DBData new: (record recordSize) "173 <- 32 * 4 + 20 + 11 + 14"
  31.  
  32. addrBook create: 'SimpleAddressBook' for: record
  33.  
  34. addrBook open: 'SimpleAddressBook' for: record
  35.  
  36.  
  37. ( 'Executing the TestDBase1 file...' ) print
  38.  
  39. titleStr <- 'SimpleAddressBook (DataBase example):'
  40.  
  41. atalk newIO: 'Enter your first name:' title: titleStr
  42.  
  43. rval <- atalk getString
  44.  
  45. nameData1 <- FieldString new: rval
  46.  
  47. recordData modifyWith: (nameData1 value) at: (record offsetAt: 1) length: (nameData1 value) size
  48.  
  49.  
  50. atalk newIO: 'Enter your last name:' title: titleStr
  51.  
  52. rval <- atalk getString
  53.  
  54. surnameData1 <- FieldString new: rval
  55.  
  56. recordData modifyWith: (surnameData1 value) at: (record offsetAt: 2) length: (surnameData1 value) size
  57.  
  58. atalk newIO: 'Enter your Street Address:' title: titleStr
  59.  
  60. rval <- atalk getString
  61.  
  62. addrData1 <- FieldString new: rval
  63.  
  64. recordData modifyWith: (addrData1 value) at: (record offsetAt: 3) length: (addrData1 value) size
  65.  
  66. atalk newIO: 'Enter your City/Town:' title: titleStr
  67.  
  68. rval <- atalk getString
  69.  
  70. cityData1 <- FieldString new: rval
  71.  
  72. recordData modifyWith: (cityData1 value) at: (record offsetAt: 4) length: (cityData1 value) size
  73.  
  74. atalk newIO: 'Enter your State/Province:' title: titleStr
  75.  
  76. rval <- atalk getString
  77.  
  78. stateData1 <- FieldString new: rval
  79.  
  80. recordData modifyWith: (stateData1 value) at: (record offsetAt: 5) length: (stateData1 value) size
  81.  
  82. atalk newIO: 'Enter your ZipCode (12345-1234):' title: titleStr
  83.  
  84. rval <- atalk getString
  85.  
  86. zipData1 <- FieldString new: rval
  87.  
  88. recordData modifyWith: (zipData1 value) at: (record offsetAt: 6) length: (zipData1 value) size
  89.  
  90. atalk newIO: 'Enter your Phone Number (123) 123-4567:' title: titleStr
  91.  
  92. rval <- atalk getString
  93.  
  94. phoneData1 <- FieldString new: rval
  95.  
  96. recordData modifyWith: (phoneData1 value) at: (record offsetAt: 7) length: (phoneData1 value) size
  97.  
  98. addrBook write: recordData as: 1
  99.  
  100.  
  101. atalk newIO: 'User Information:' title: titleStr
  102.  
  103. atalk displayString: 'Your data was written as Record number 1'
  104.  
  105. atalk displayString: 'Now let us enter another record!'
  106.  
  107. recordData reset     " Re-use the same recordData object! "
  108.  
  109. atalk newIO: 'Enter another first name:' title: titleStr
  110.  
  111. rval      <- atalk getString
  112. nameData2 <- FieldString new: rval
  113.  
  114. recordData modifyWith: (nameData2 value) at: (record offsetAt: 1) length: (nameData2 value) size
  115.  
  116. atalk newIO: 'Enter another last name:' title: titleStr
  117.  
  118. rval         <- atalk getString
  119. surnameData2 <- FieldString new: rval
  120.  
  121. recordData modifyWith: (surnameData2 value) at: (record offsetAt: 2) length: (surnameData2 value) size
  122.  
  123. atalk newIO: 'Enter another Street Address:' title: titleStr
  124.  
  125. rval      <- atalk getString
  126. addrData2 <- FieldString new: rval
  127.  
  128. recordData modifyWith: (addrData2 value) at: (record offsetAt: 3) length: (addrData2 value) size
  129.  
  130. atalk newIO: 'Enter another City/Town:' title: titleStr
  131.  
  132. rval      <- atalk getString
  133. cityData2 <- FieldString new: rval
  134.  
  135. recordData modifyWith: (cityData2 value) at: (record offsetAt: 4) length: (cityData2 value) size
  136.  
  137. atalk newIO: 'Enter another State/Province:' title: titleStr
  138.  
  139. rval       <- atalk getString
  140. stateData2 <- FieldString new: rval
  141.  
  142. recordData modifyWith: (stateData2 value) at: (record offsetAt: 5) length: (stateData2 value) size
  143.  
  144. atalk newIO: 'Enter another ZipCode (12345-1234):' title: titleStr
  145.  
  146. rval     <- atalk getString
  147. zipData2 <- FieldString new: rval
  148.  
  149. recordData modifyWith: (zipData2 value) at: (record offsetAt: 6) length: (zipData2 value) size
  150.  
  151. atalk newIO: 'Enter another Phone Number (123) 123-4567:' title: titleStr
  152.  
  153. rval       <- atalk getString
  154. phoneData2 <- FieldString new: rval
  155.  
  156. recordData modifyWith: (phoneData2 value) at: (record offsetAt: 7) length: (phoneData2 value) size
  157.  
  158. addrBook write: recordData as: 2
  159.  
  160. atalk setIOTitle:    'DBase example Tests (continued):'
  161. atalk setIOMessage:  'DBase entries finished!'
  162. atalk displayString: 'Your data was written as Record number 2'
  163.  
  164. nameData1    dispose " Get rid of old junk "
  165. surnameData1 dispose
  166. addrData1    dispose
  167. cityData1    dispose
  168. stateData1   dispose
  169. zipData1     dispose
  170. phoneData1   dispose
  171.  
  172. nameData2    dispose
  173. surnameData2 dispose
  174. addrData2    dispose
  175. cityData2    dispose
  176. stateData2   dispose
  177. zipData2     dispose
  178. phoneData2   dispose
  179.  
  180. ( 'Now, execute TestDBase2 file!' ) print
  181.